home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / homeimpr.sit / Home Improvements / card_6836.txt < prev    next >
Text File  |  1988-09-19  |  3KB  |  85 lines
  1. -- card: 6836 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3490
  5. -- name: KeyButtons
  6.  
  7.  
  8. -- part contents for background part 1
  9. ----- text -----
  10. KeyButtons
  11.  
  12. -- part contents for background part 3
  13. ----- text -----
  14. -- Install this into the Home Card stack scripts:
  15. --
  16. -- include these lines in an initialization handler (see 'home
  17. --     initializations' for more information):
  18.   global currCard, keyBtnFlag, keyBtnNum
  19.   put "nothing loaded" into currCard -- for 'KeyButton'
  20. --
  21.  
  22. on invokeKeyButton
  23.   global currCard, keyBtnFlag, keyBtnNum
  24.   if (the ID of this card <> currCard) OR (keyBtnNum<1) then ┬¼
  25.   exit invokeKeyButton
  26.   put keyBtnFlag && "Button" && keyBtnNum into keySeg
  27.   put "click at the loc of" && keySeg into com1
  28.   do com1
  29. end invokeKeyButton
  30.  
  31. on keyButton
  32.   global currCard, keyBtnFlag, keyBtnNum
  33.   if (the number of card buttons = 0) AND ┬¼
  34.   (the number of bkgnd buttons = 0) then exit keyButton
  35.   if the ID of this card <> currCard then
  36.     put the ID of this card into currCard
  37.     put 0 into keyBtnNum
  38.     if the number of card buttons = 0 then
  39.       put "Bkgnd" into keyBtnFlag
  40.     else
  41.       put "Card" into keyBtnFlag
  42.     end if
  43.   end if
  44.   put keyBtnFlag into oldKBF
  45.   put keyBtnNum into oldKBN
  46.   put "put the number of" && keyBtnFlag && "buttons into hm" into com1
  47.   do com1
  48.   repeat
  49.     add 1 to keyBtnNum
  50.     if keyBtnNum>hm then
  51.       if keyBtnFlag = "Card" then
  52.         if the number of bkgnd buttons > 0 then
  53.           put "Bkgnd" into keyBtnFlag
  54.         end if
  55.       else
  56.         if the number of card buttons > 0 then
  57.           put "Card" into keyBtnFlag
  58.         end if
  59.       end if
  60.       put "put the number of" && keyBtnFlag && "buttons into hm" ┬¼
  61.       into com1
  62.       do com1
  63.       put 1 into keyBtnNum
  64.     end if
  65.     if (keyBtnFlag=oldKBF) AND (keyBtnNum=oldKBN) then exit keyButton
  66.     put keyBtnFlag && "Button" && keyBtnNum into keySeg
  67.     put "put the visible of" && keyseg && "into isThere" into com1
  68.     do com1
  69.     if isThere then exit repeat
  70.   end repeat
  71.   put "set the hilite of" && keySeg && "to" into com1
  72.   put com1 && "NOT the hilite of" && keySeg into com1
  73.   do com1
  74.   put "set the hilite of" && keySeg && "to" into com1
  75.   put com1 && "NOT the hilite of" && keySeg into com1
  76.   do com1
  77. end keyButton
  78.  
  79. -- part contents for background part 5
  80. ----- text -----
  81. 7/1/88 3:55 PM
  82.  
  83. -- part contents for background part 4
  84. ----- text -----
  85. This is a way for you to click on buttons without using the mouse.  KeyButton will cycle through all of the card and bkgnd buttons on a card, flashing the hilight momentarily. InvokeKeyButton will actually click on the button that was last chosen through KeyButton.